home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00693_MTR ini ou.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  4.5 KB  |  118 lines
  1. on startMovie
  2.   global gMaxBoutons, gBarChron, gBoutons, gCheckbox, gListSuj, gListCod, gListCodAnc, gListPart, gListAng, gNumSpr, gSujet0, gSurvolPrec, gSurvolAct, gMessDef1, gMessSty1, gChapAct, gChapPrec, gEtudAct, gEtudPrec, gEtaEtud, gEtaSpir, gLabel, g1erSprChr, g1erSprNav, g1erSprLoc, gCDpath, gZicPath, gSprSel, gListBtDec, gListBtChr, gListCurs, gListMsk, gCursor, gVide, gScopeSu, gScopeCo0, gScopeCo1, exitFrame, gScopeTr, gScopeHi, gScopeEnZ, gScopeEnB, gScopeCh, gScopeCi, gScopeWt, gScopePh, gScopeRe, gScopeDe, gScopeFi, gTraduit, gIndEnv, gEnv1, gEnv2, gEnv3, gEnv4, gCodEnv, gNumEnv, gNomBestEnv, gBotBestEnv, gTopBestEnv, gLefBestEnv, gRigBestEnv, gTextEnvT, gTextEnvL, gListCodPhy, gListNomPhy, gListRecPhy, gListSujPhy, gListArbPhy, gListFicPhy, gListTimPhy, gTextPhyL, gListQst, gListRep, gVolVid, gVolZic, g1ereFois, gCompte, gBagotte, gIndSel, gOldSelStart, gOldSelEnd, gLoadZic, gVersion, gListDepth, gLocDeb
  3.   cursor(4)
  4.   go(the frame)
  5.   set gCompte to 0
  6.   set mon_sep to "\"
  7.   set gCDpath to the moviePath
  8.   set gCDpath to chars(gCDpath, 1, the number of chars in gCDpath - 2)
  9.   set gCDpath to gCDpath & "DATA" & mon_sep
  10.   set gZicPath to gCDpath & "S" & mon_sep
  11.   set gVersion to gCDpath & "L8" & mon_sep
  12.   if not (the quickTimePresent) then
  13.     alert("QuickTime was not found. please install it.")
  14.     quit()
  15.   end if
  16.   set gScopeSu to FFScope(mnew, the number of cast "VidSuCo", 40, gCDpath)
  17.   set gScopeCo0 to FFScope(mnew, the number of cast "VidSuCo", 40, gCDpath)
  18.   set gScopeCo1 to FFScope(mnew, the number of cast "VidSuCo", 41, gCDpath)
  19.   set gScopeTr to FFScope(mnew, the number of cast "VidTr", 40, gCDpath)
  20.   set gScopeEnZ to FFScope(mnew, the number of cast "VidEn", 40, gCDpath)
  21.   set gScopeEnB to FFScope(mnew, the number of cast "VidEn", 41, gCDpath)
  22.   set gScopeHi to FFScope(mnew, the number of cast "VidHi", 40, gCDpath)
  23.   set gScopeCh to FFScope(mnew, the number of cast "VidCh", 40, gCDpath)
  24.   set gScopeCi to FFScope(mnew, the number of cast "VidCi", 40, gCDpath)
  25.   set gScopePh to FFScope(mnew, the number of cast "VidPh", 40, gCDpath)
  26.   set gScopeDe to FFScope(mnew, the number of cast "VidDe", 40, gCDpath)
  27.   set gScopeFi to FFScope(mnew, the number of cast "VidFi", 42, gCDpath)
  28.   puppetSprite(39, 1)
  29.   go(the frame)
  30.   set the locH of sprite 39 to 69
  31.   set the locV of sprite 39 to 285
  32.   go(the frame)
  33.   ini_curs()
  34.   curseur(6)
  35.   ini_suj()
  36.   ini_Tim()
  37.   ini_env()
  38.   ini_phy()
  39.   ini_aid()
  40.   ini_son()
  41.   patience("initialisation des variables globales")
  42.   set gListCodAnc to list("PUR", "NEC", "AEG", "PAF", "KEN", "AAF", "HHA", "HER", "HSA", "HSS")
  43.   set gListPart to list("T", "C", "S", "B")
  44.   set gListAng to list("P", "Q", "F")
  45.   set gBarChron to FBarreChrono(mnew)
  46.   set gBoutons to FGereBouton(mnew)
  47.   set gCheckbox to FGereCheckBox(mnew)
  48.   set gMaxBoutons to 48
  49.   set g1erSprChr to 5
  50.   set gListBtChr to list()
  51.   repeat with i = g1erSprChr to g1erSprChr + 9
  52.     setAt(gListBtChr, i, word 1 of the name of cast the castNum of sprite i)
  53.   end repeat
  54.   set g1erSprNav to 15
  55.   set g1erSprLoc to 0
  56.   repeat with i = 46 to 48
  57.     puppetSprite(i, 1)
  58.   end repeat
  59.   set the visible of sprite 48 to 0
  60.   set the castNum of sprite 48 to the number of cast "vide"
  61.   set gNumSpr to 0
  62.   set gSujet0 to 0
  63.   set gSurvolPrec to 0
  64.   set gSurvolAct to 0
  65.   set gMessDef1 to "  "
  66.   set gChapAct to "CI"
  67.   set gChapPrec to " "
  68.   set gEtudAct to " "
  69.   set gEtudPrec to " "
  70.   set gEtaEtud to " "
  71.   set gEtaSpir to 0
  72.   set gLabel to EMPTY
  73.   set gMessSty1 to "plain"
  74.   set gIndSel to 1
  75.   set gVide to the number of cast "vide"
  76.   set the text of cast "zone info" to " "
  77.   set the text of cast "titre" to " "
  78.   set gIndSel to 0
  79.   set gVolVid to 255
  80.   set gVolZic to 255
  81.   set g1ereFois to 1
  82.   set gOldSelStart to 0
  83.   set gOldSelEnd to 0
  84.   set gLoadZic to 1
  85.   set gListDepth to list(8, 16, 32)
  86.   puppetSprite(3, 1)
  87.   puppetSprite(39, 0)
  88.   go(label("AC:IN"))
  89. end
  90.  
  91. on zutMovie
  92.   global gBarChron, gBoutons, gCheckbox, gListSuj, gScopeSu, gScopeCo0, gScopeCo1, gScopePh, gScopeTr, gScopeHi, gScopeEnZ, gScopeEnB, gScopeCh, gScopeCi, gScopeWt
  93.   if not (the controlDown) then
  94.     gScopeSu(mdispose)
  95.     gScopeCo0(mdispose)
  96.     gScopeCo1(mdispose)
  97.     gScopePh(mdispose)
  98.     gScopeTr(mdispose)
  99.     gScopeHi(mdispose)
  100.     gScopeEnZ(mdispose)
  101.     gScopeEnB(mdispose)
  102.     gScopeCh(mdispose)
  103.     gScopeCi(mdispose)
  104.     repeat with i = 1 to 48
  105.       set the visible of sprite i to 1
  106.       puppetSprite(i, 0)
  107.     end repeat
  108.   end if
  109.   gBarChron(mdispose)
  110.   gBoutons(mdispose)
  111.   gCheckbox(mdispose)
  112.   repeat with i = 1 to 18
  113.     set suj to getAt(gListSuj, i)
  114.     suj(mdispose)
  115.   end repeat
  116.   set the trace to 0
  117. end
  118.